DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


| **F ILE**1D**DBGIF THEN 


| 


eee) usu 
ts usu 
dass dass asus 
hast peerey usta 
tas bbe basta thd 
erry) Aaa [ve avy) 
usu was as sud 
dus task Aad Ld 


as kd kd kd a 
AAS hs hs a td tk dk 


mo 
ee 
ne ee ee eo 
— 


ee 
oe 

be 

ke be 

o he 
Ae be tae 
ke be 
hae ba bo 
ke te kee ke 
be te he 


tA be hh bk kk te be be ke be tk te te tk 
de th Le tA th ke fk bk ke 


GGGGGGGG 
GGGGGG6GG 


GG G6GGGGG 
GG 666666 


GG 
GG 


DDDDDDDD 
DDDDDDDD 
DDDDDDDD 
DDDDDDDD 


SSSSSS 
SSSSSS 


8 8 Od Od Og Og ng Od Od OG OG OG OG 


LLLLLLLLLL 
LLLLLLLLLL 


BEES Ad ie LE Se i Oe Ostet A 


| 


dD 2 
DBGIF THEN 16-Sep-1984 01:18:37 AX-11 Bliss-32 V4.0-742 Page 1 
v04-000 ae 7 a ae 14 {DeBUG. SRC DBGIF THEN.B32; 1 . (1) 
3 1 $00) 8 MODULE DBGIFTHEN (IDENT = ‘V04-000') = 
3 5 8 5 1 BEGIN 
a4 ae 
: $ O06 1 SORA R ARERR RE RAA EAA KAT ARES EEE HE HEATHER AEREEeeeeAeRAeeKeReeeteeee 
; 007 1 !* * 
; 8 tie 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: oa 009 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
b4 19 id ; os ALL RIGHTS RESERVED. : 
3 \¢ pore 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
“Stiy 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY . 
3 16 pole 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 4 9017 ' ie TRANSFERRED. * 
4 ‘® oa 
; #19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
; 20 0020 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: 21 9021 is CORPORATION. * 
s ‘e e 
: 6 0098 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
> 26 0024 1 i* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
a ae 0025 1 !* * 
: 26 0026 1 !* * 
: 27 0027 1 Neeeeearee rarer reeked eee ARE EE TEE EE TERT E ATER E KEK EKeAeeKKAeeKeeeKeeeeee 
; @ 0028 1! 
; $3 534 1 
3 0 0030 1 !+4¢ 
5 He 0031 1 ! FACILITY: 
3 2 4 1! 
[ae 0033 1! DEBUG 
5 0034 1! 
: 35 0035 1 ! ABSTRACT: 
i: 2 0036 1! j 
0) ar 0037 1! This module contains the parse and execution networks for the 
; 38 0038 1! DEBUG control structures: IF...THEN...ELSE, WHILE...DO, 
;: #39 0039 1! FOR loops, and REPEAT...DO 
:; 40 0040 1! 
: 41 0041 1 ! ENVIRONMENT: 
; ng 1! 
ge} 0g 00435 1! VAX/VMS 
3: 666 goer 1! 
3 45 045 1 ! AUTHOR: 
: 46 0046 1! : 
Pane ¢ 0047 1! Richard Title 
;. & 0048 1! 
3 49 0049 1 ! CREATION DATE: 
;s 3 8230 1! 
2. 3 51 1! 1-10-82 
3 26 26 - 
;. § 553 1 ! VERSION: 
; %% 054 1! 
oo 3s = a v03.0-001 
~~. 3e 26 1! 

E 57 005? 1 | MODIFIED BY: 
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DBGIF THEN 16-Sep-19 1:18:37 AX-11 Bliss-32 V4,0-74 Page 
v04-000 1o=8e8=1 382 05:18: 9 DEBUG. SRCID SIF THEN.832;1 ° ( 
; 64 063 1! 
; 6 064 1 ! TABLE OF CONTENTS: 
; 68 065 1! 
; § 098 1 
: 68 0067 1 FORWARD ROUTINE 
; @& 0068 1 PARSE_IF ! Parse network 
: 70 0069 1 DBGSNEXECUTE fF i Execution network 
hy 0070 1 SNPARSE_WAILE, i Parse network 
he 0071 1 DBGSNEXECUTE WHILE, ! Execution network 
‘Wels OOS 1 DBGSNPARSE FOR ! Parse network for FOR 
> (74 0073 1 DBGSNEXECUTE FOR i Execution network for FOR 
: 75 007% 1 DBGSNPARSE_REPEAT i Parse network 
; re Bone : DBGSNEXECUTE_REPEAT; ! Execution network 
: 78 0077 1 ! REQUIRE FILES: 
; 0078 1! 
; 80 0079 1 REQUIRE ag tg oa 
: a i ! LIBRARY ‘LIBS:DBGGEN.L32'; 
: 8 0215 1 EXTERNAL 
; 0216 1 dbg$gb_ Language: BYTE ! Current Language setting 
: 85 0217 1 dbg$gb_-radix: VECTOR(S, BYTE), i Radix settings 
; 0218 1 dbg$gb_take_cmd: BYT ; ! Flag that controls command taking 
5 4 ost? ' dbg$gl“cishead: REF cis$link; ' Head of command input stream 
; oss) 1 EXTERNAL ROUTINE 
:; 90 02 ¢ 1 dbg$def_sym_add, ! Add a defined symbol 
; 91 0223 1 dbg$get_memory, ' Allocate permanent memory 
s Pe 0224 1 dbg$get_tempmem, ! Allocates space 
.. 0225 1 dbg$ncis_add ! Add a Link to the command input stream 
; 0226 1 dbg$nget_symid, ! Obtain a symid List 
: 0227 1 dbg$nmake_arg_vect, ! Constructs error messages 
3; © 0228 1 dbg$nmatch, ' Tries to match the next token 
; Ww <594 1 dbg$nnext_word, ! Gets next word from input 
;: 0230 1 dbg$nparse_expression, : Language specific expression interpreter 
5; 0231 1 dbg$nread_name, ! Pick up a name 
: 100 Ocas 1 dbg$nsave_break_buffer: NOVALUE, ' Saves the action clause in a buffer 
: 101 0233 1 dbg$nsyntax_error, ! Reports a syntax error 
; 106 0234 1 dbg$ntype_conv, ! Language specific type converter 
; 10 0235 (1 dbg$rel_memory: NOVALUE, ! Releases memory from DEBUG memory pool 
3 H 8S39 : dbg$sta_lock_symid: NOVALUE; ! Lock a symid List 
: 106 ™ 0238 1 MACRO regert error = 
3; 107 "0239 1 EGIN 
: 108 ™ 0260 1 -meseoge vect = 
; + +4 " soe) ! (I giogsnmatch (,input_desc, dbg$cs_cr, 1) 
: i 4 0348 : oT dbgSnmake_arg_vect (dbg$_needmore) 
3 118 La} b5e8 1 dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
7 (1146 M0246 1 RETURN sts$k_severe; 
s 3 0247 1 END; 
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-000 14-Sep-1984 12:16:59 DEBUG. SRC JDBGIF THEN.B32;1 
i? re GLOBAL ROUTINE dbg$nparse_if(input_desc, verb_node, message_vect) = 

19 20 i Functional Description 

1 26 ATN parse network for the IF verb. 

¢ This routine takes a verb node for the IF verb, and a string 

54 descriptor for the remaining (unparsed) input. 

: 56 A command execution tree is built. The form of the tree is: 

6 5 See eeoooeoeoee nem e eG Pee ee ee ey ee ee ne ee RS es 
si 28 ' verb node i=->=-! noun node i-->--! noun node i[-->=-! noun node |] 

ee Sc nwe eae mee = Seeoeeaoeoneaoaaer Se Se wee See 

9 60 
: 61 The first noun node points to a value descriptor for the IF clause. 

1 6¢ The second noun node points to a counted string with the THEN clause. 
$ 6 The third noun node, which may be absent, points to a counted string 
$2 with the ELSE clause. 

35 i Formal Parameters 
input_desc - A longword containing the address of the 
command input descriptor. 
verb_node - A longword containing the address of the verb node. 


' 

1 

' 

1 

! 

! 

1 

1 

! 

' 

1 

1 

1 

! 

' 

' 

! 

! 

' 

i] 

' 

; message_vect - The address of a longword to contain the address 
of a standard message argument vector. 
Implicit Inputs 
none 
Implicit Outputs 
i] 

! 

! 

1 

' 

‘ 

] 

1 

] 

1 

' 

! 

' 

' 
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On success, the command execution tree is constructed. 
On failure, a message argument vector is constructed or obtained. 
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sts$k_success (1) - Success. Command execution tree constructed. 
86 sts$k_severe (4) - Failure. Error encountered. Message argument 
44 : constructed and returned. 
44 ! Side Effects 
$3) Permanent storage is allocated for the string holding the THEN 
§ clause; this is released in DBGSNEXECUTE_IF after execution 
3 of the THEN clause. 
94 
95 
39 BEGIN 
9 
39 
input_desc : REF dbg$stg desc, 
S verb_node : REF dbg$verB_node; 
ND 
308 dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return) ; 
04 dbgScs-left_paren = UPLIT BYTE (1, dbgSk~left_parenthesis), 
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74 ELSE"), 

Le THEN'); 

i$ 

78 ‘ 

79 ' 

0 ' 

Hi radix, ' Holds the current radix setting. 

Ht status; } pues Sees status from subroutine 


Create and Link a noun node 


noun_node = dbeSget tempmem(dbg$k_noun_node_size); 


verb_node(dbg$l_verb_object_ptr] = .noUn_node; 


Determine the current radix. 

radix = .dbg$gb_radix(dbg$b_radix_input); 

! Obtain a value descriptor for the condition. The first noun node 
points to this descriptor. 

STATUS = oricethrmmans Pg) (. INPUT_DESC, .RADIX, 


UN_NODE COBG$L_NOUN_ VALUE), 
TOKERSK_TERM_THER, .MESSAGE_VECT); 
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The return status should be ‘‘warning’’, meaning that an expression 
was parsed and further input reamins. If an expression was parsed 
but no input remains, then DBGSNPARSE_EXPRESSION will return success. 
- this context, it ts an error since ‘IF condition’ by itself 

S an error. 
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-Status EQL sts$k_success THEN SIGNAL (DBGS$_NEEDMORE); 
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' Severe status is also an error. 


status EQL sts$k_severe 
RETURN sts$k_severe; 
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: Eat the THEN 
if NOT dbg$nmatch (.input_desc, dbg$cs_then, 1) 
BEGIN 


message vect = 
(I GbgSnmatch (,input_desc, dbg$cs_cr, 1) 


WAN Nw 


MOPOPOMONOMUNUNDNRD 2 2 
NOU wt 


wr 
oom 


dbg$cs_else = UPLIT BYTE (4, 
dbg$cs_then = UPLIT BYTE (4, 
LOCAL 
Link, ! Temporary to Links in the command 
’ execution tree. 
noun_node : REF dbg$noun_node, ' A node in the command execution tree. 
4 
4 
4 
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dbg$nmake_arg_vect (dbg$_needmore) 
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H 1 66 4 ELSE 

: § o7 dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
; 4 65 RETURN stsS$k_severe; 

3 5 08 END; 

i i 

: 8 9 $9 t Allocate and Link a noun node for the THEN clause. 

: 240 8 71 Link = noun_node Cdbg$l_noun_Link]; 

: 241 i noun _node = dbg$get_tempmem(dbg$k_noun_node_size); 

; <8 p if, -link = .noun_node; 

: te tt } Eat the left parenthesis which we require be present. 

: Ste 0 8 iF NOT dbg$nmatch (.input_desc, dbg$cs_left_paren, 1) 

3; 267 0378 THEN 

: 48 0379 BEGIN 

; 249 0380 message vect = 

3 29 tet : (I GbgSnmatch (.input desc, dbg$cs_cr, 1) 

; 26 0384 4 dbg$nmake_arg_vect (dbg$_needmore) 

; 0384 4 E 

3; 254 0385 5 BEGIN 

; 255 0386 5 SIGNAL (dbg$_needparen) ; 

; 256 0387 dbg$nsyntax_error (dbg$nnext_word (.input_desc)) 

s @or 0388 END); 

; 258 0389 RETURN sts$k_severe; 

tee a 

: 261 444 ! Put a pointer to the counted string representing the THEN 

; 039 ' clause into the second noun node. (Note = the counted string 
; @& Bave ' is constructed out of ‘‘permanent’’ memory which is released 

: soe 0395 ! im DBGSNEXECUTE_IF). 

; 265 0396 ! (The third argument indicates that this routine is not being 
; 266 0397 ' called during a SET BREAK DO (the behavior is slightly different 
s sor Bao8 in that case.)) 

: 26 ots dbg$nsave_break_buffer (.input_desc, noun_node [dbg$l_noun_value)); 
; $4 B40 ! If we have reached the end of the Line, return success (no else 
3 Le: 838 ' clause is present). 

s 62F 04 ‘ 

3; 274 5 IF dbg$nmatch (.input_desc, dbg$cs.cr, 1) 

$ Le . - -input_desc Cdsct$w_length) EOL 6 

; 277 08 RETURN sts$k_success; 

: 278 409 

3 a0 19 : Look for ELSE clause. 

; 1 1 if NOT dbgSnmatch (.input_desc, dbg$cs_else, 1) 

$ ae 13 THEN ° * ° 

: 14 BEGIN 

3 15 -message_vect = dbg$nsyntax_error (dbg$nnext_word (.input_desc)); 
: 285 16 aun sts$k_severe; 

; 18 i 


DBGIF THEN 1-58 Sep-1984 01:18:37 AX-11 Bliss-32 V4.0-74 
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: 83 £38 Allocate and Link a noun node for the ELSE clause. 

; 421 link = noun _node ay noun_ Link); 

; 291 4, g noyn node = dbg$get_tempmem(dbgSk_ noun _node_size); 

: 35 ° ? Link = .noun_node; 

3 Be " 5 } Eat the left parenthesis which we require be present. 

3 4 rs § if NOT dbg$nmatch (.input_desc, dbg$cs_left_paren, 1) 

: 298 5 BEGIN 

; 299 0 ~meseogey ets 

: 39 ? ? rere nmatch (. input_desc, dbg$cs_cr, 1) 

: 30 433 4 $nmak 

4 a : 529 nmake_arg_vect (dbg$_needmore) 

3 04 5 BEGIN 

s 309 § SIGNAL (dbg$_needparen) ; 

: 54 ba 8 db pndynten, error (dbg$nnext_ word (.input_desc)) 

; 308 0439 RETURN k ; 

aed dh sts$k_ severe; 

: 311 044 ! Put a pointer to the counted string representing the ELSE 

; ig bees : ¢lause into the third noun node. (Hote = the counted string 

s 3 0444 ! is constructed out of ‘'permanent’’ memory which is released 

: si¢ pee? in DBGSNEXECUTE bf). 

; 1$ ret! dbg$nsave_break_buf fer (. input desc, noun_node [dbg$l_noun_value]); 

3 ee Return success. 

; 320 0451 RETURN sts$k_success; 

5 Sev 045 

: 22 0453 1 END; 


-TITLE DOBGIFTHEN 
-IDENT \V04-000\ 
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C 
D 
DBGS ANGUA ce 
DBG$GB-RADIX, DBGSGB_TAKE 
DBGS6L mat Ce SBCEDEE KEWn A ADD 
BGSGET_MEMORY, DBGSGET"TEMPMEM 


Page 


DBGiF THEN 
voL-000 


O7FC 00000 
5A 000000006 00 9€ 0000 
59 ddd 09 9E 0000 
28 4545444 0 9E poe 
00000006 00 9E 4 
56 00000000° Ff 9E 49h 
+H Bie 
55 80 D0 OO2A 
50 08 AC DO 00020 
08 Ad 55 00 00031 
29 000000006 00 9A 00035 
Baha Bete 
96 DD Renee 
1 BB 00044 
52 04 ac 00 44-94 
3 DD QO04A 
000000006 00 05 FB Bones 
54 20 D0 0005 
01 54 D1 00056 
09 12 00059 
00028000 8F DD 0005B 
69 01 FB 00061 
04 54 D1 00064 
93 12 00067 
QOAE 31 00069 
01 DD 0006C 
oi 8 ie 
5 Eb eer 
tS is 
? 0044 F 4 Bare 
D 0 9 008 
66 1 0008 
54 08 AS 9E 000 
4 0D 000 
) i 
64 2 Dd bbe 
02 AG F 38 
8 3 Bs 


18: 


23: 


3$: 
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DBGSNCIS_ADD, DBGSNGET_SYMID 
KE_ARG_VECT 


DBGSNMAKE_A 
DBGSNMATCA, DBGSNNEXT_WORD 


DBGSNPARSE EXPRESSION 
DBGSNREAD_RAME, DBGSNSAVE_BREAK_BUFFER 
DBGSNSYNTAX_ERRO 
DBGSNTYPE_ CONV, DBGSREL_MEMORY 
DBGSSTA_LOCK_SYMID 
DBGSCODE,NOWRT, SHR, PIC,0 
DBGSNPARSE IF, Save R2,R3,R4,R5,R6,R7,RB,- 
DBGSNSAVE BREAK _BUFFER, R10 
DBGS$GET TEMPHEM, RB 
DBGSNMATCH, R 
DBGSCS_CR. R6 
#1, DBGSGET_TEMPMEM 

NOUN_NOBE 


#6 

#*M<RO,R5> 

INPUT_DESC, R2 

#5, DBGSNPARSE_EXPRESSION 
0, STATUS 


o 


ATUS, #1 
#164048 
#1, LIBSSIGNAL 
STATUS, a4 
10$ 
#1 
DBGSCS_THEN 
a3, RRGSNMATCH 
RO, 3$ 
#°M<R2,R6> 
#3, DBGSNMATCH 
RO, 4$ 
Bins). LINK 
#1, DBGSGET_TEMPMEM 
RO, NOUN E 
NOUN_NODE, (LINK) 
DRGSCS_LEFT_PAREN 
R 


Page 
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DBGIF THEN 1b-se =1984 01:18:37 AX-11 Bliss-32 V4.0-74 Page 9 
yO2-000 1 ~3007 1382 93:18 :8 DEBUG. SRCJDBGIF THEN.B32;1 oF 3) 
7 : 90 CALLS #3, DBGSNMATCH : 
E 3 £8 A BLBC 4 3 : 
4 BB QOOA PUSHR #°M<R2,R5> + 0400 
6A é FB OOOA CALLS #2. DBGSNSAVE _BREAK_BUF FER : 
DD 000A PUSHL # 3 0405 
0044 8F BB 000A SHR  #*M<R2,R6> : 
67 F AE CALLS #3, DRGSNMATCH : | 
6F E Bi BS RO, 12$ : 
62 8 B4 TSTW (Re) + 0406 
68 13 0008 ea : 
1 pd B PUSHL #1 : 0412. 
04 Abd 9F OOOBA PUSHAB DBGSCS_ELSE : | 
52 DD 000BD PUSHL R : 
67 9 FB OBF CALLS #3, DBGSNMATCH : 
40 F ce 4$: BLEC =OséaR : 
54 08 AS SE 000C MOVAB 8(R5), LINK > 0421 | 
04 od 000C9 PUSHL 4&4 + 0422 | 
68 gi FB 00¢B CALLS #1, DBGSGET_TEMPMEM : | 
9 DO OOOCE MOVL RO, NOUN NOBE ; | 
64 55 DO 00001 MOVL NOUN_NODE, (LINK) 3 0423. 
01 pp 00D4 PUSHL #1 + 0427. 
02 A6 9F 00006 PUSHAB DBGS$CS_LEFT_PAREN : 
52 0D 00009 PUSHL R : | 
67 g FB 000DB CALLS #3, DBGSNMATCH ; 
D 0 €8 OOODE BLBS RO, 118 : 
1 DD OO0E1 5S: PUSHL #1 + 0431) 
0044 8F BB 000E3 PUSHR #*M<R2,R6> : 
67 3 FB OO0E7 CALLS #3, DBGSNMATCH : | 
OF 0 €9 OOOEA BLBC : 
00028000 8F DD OED 68: PUSHL #164048 + 0433) 
000000006 00 01 FB OOOF CALLS #1, DBGSNMAKE_ARG_VECT : 
1B 11 OOOFA BRB : 
00028743 er DD OOOFC 78 PUSHL #165699 > 0436 
69 1 FB 0010 CALLS #1, LIBSSIGNAL : 
52 DD 00105 8$ PUSHL ; 0437) 
000000006 00 01 FB 00107 CALLS #1, DBGSNNEXT_WORD : | 
50 DD 0010 PUSHL RO : 
000000006 09 gi FB 0011 CALLS #1, DBGSNSYNTAX_ERROR F 
6 0 o0 O14 9$: MOVL RO, (R3) > 0431. 
50 04 p 11A 108 MOVL #4, RO ; 0439 | 
4 00110 RET : 
24 BB OO11E 11$: PUSHR #*M<R2,R5> > 0447 | 
6A 2 FB 01 CALLS #2, DBGSNSAVE_BREAK_BUFFER ; 
50 01 p 91 128:  MOVL #1, RO : 0451 
4 00126 RET > 0453 
3; Routine Size: 295 bytes, Routine Base: DBGSCODE + 0000 
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BEGIN 


verb_node : REF dbg$verb_node; 


LOCAL 
condition_node: REF dbg$noun_node, 
condition_value, 
else_node: REF dbg$noun_node 
else"string: REF AVEC TORE WORD). 


¢ : : GLOBAL ROUTINE dbg$nexecute_if (verb_node,message_vect) = 
§ ‘ $ ! Functional Description 
§ 4 8 ! This routine performs the action associated with the IF 
ree command. 
1 461 Formal Parameters 
g 168 ; verb_node - A ere —— the address of the 
4 464 ! head (verb) node. 
5 46 : message_vect ‘= The address of a longword to contain the 
rh address of an error message vector 
: ret | Implicit Inputs 
40 8699 ! The command tree contains a verb node and a Linked List 
41 471 : of two or three noun nodes. (See the diagram in the header for 
ry ek DBGSNPARSE JIF). 
ab 0474 ; Routine Value 
4. gee } A completion code. 
48 0478 ; Completion Codes 
50 0480 : sts$k_success (1) - Success. Command executed 
51 0481 ! sts$k_severe (4) - Failure. The command could not be 
26 Re § } executed. An error message is constructed. 
2¢ Bee Side Effects 
3 04 Storage allocated for the THEN clause is freed up. 
58 
59 
5 


The noun node for the IF condition 
Should be TRUE or FALSE 

The noun node for the Etat clause. 
Counted string with ¢t © ELSE clause 


then_node: dba n oun node, The noun node for the Neuen clause 
99 then_ string: REE VECTOR ° Counted string oith the THEN clause 
00 vax_desc: dbg$stg_ desc; 


Torget of the conversion from 
he value descriptor 
representing the condition. 


: Recover the two noun nodes. 
Sondteten: node = .verb_node dbost verb rb_object. ptr); 
then_node"= .condition-node (dbg$l noun 

else_node = .then_node” (dbg$l_noun_link]; 


! Set up the vax descriptor for the condition. 
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<o 
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| see For now, we just declare the descriptor to be longword integer, 
' since this spyees the fewest problems in the type converter. 
syensuatty. 


EN 
RETURN sts$k_severe; 
Recover the string(s). 


then_string = .then_node ([dbg$l_noun_value); 
F zelee_node NEQ 0 
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1 
i 
1 f we get a Boolean type and all languages support 
: i t then we will build a target descriptor of this ope. o_ 
86 316 vax_desc (dsc$b_class] = dsc$k_class_s; 
8 1 vax_desc [dsc$b_dtypeJ_ = dsc$k_dtype_l; 
88 218 vax_desc [dsc$w_length] = 4; 
89 2) vax_desc [dsc$a_pointer] = condition_value; 
BY 2 , vax_desc ([dsc$l_pos] = 0; 
36 5 § ! #e# Special case for PASCAL. Level 3 PASCAL returns descriptors 
Br ; ? } of type Boolean (dsc$k_dtype_tf) for relational expressions. 
95 525 iF .dbg$gb_language EQL dbg$k_pascal 
9 08 g THEN g3gb_languag gk _pasc 
97 05 BEGIN 
98 05 8 vax_desc fdscsb_dtype) = dsc$k_dtype_tf; 
ive Be 3 you, Sone dsc$w_length] = 1; 
401 531 : 
rt’ 3 § Initialize condition_value to 0 
404 0534 condition_value = 0; 
405 0535 
06 82 § De the conversion from value descriptor to integer. 
0538 if NOT dbg$ntype_conv (.condition_node Cdbg$l_noun_valuel, 
0539 dbg$k_default, 
0540 dbg$k_vax_desc, 
82 1 vax_desc, e) 
-meSsage_vec 
b2 § message_v 
0544 
0545 
05 $ 
05 
0548 
32 9 
550 
He 
; 
4 


Add a new Link to the command input stream. 
If NOT dbg$ncis_add (then_stringl1}, .then_string(0J, 
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5 
32 else_string = .else_node (dbg$l_noun_value] 
55 else_string = 0; 
22 ! Process the THEN clause only if value of the condition is TRUE . 
55 ! For now, just use the BL7S5 semantics which say that a value is 
55 i true iff the low bit is 1. We need to research which Languages 
22 ! have different semantics and come up with a lLanguage-dependent 
5 method of doing this. 

if .condition_value 

THEN 

BEGIN 
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Escorts OU:TB:3E yausyt ehisszs 
- cis_if, 0, 0, 0, .message_vect) 

RETURN sts$k_severe; 

END 
ELSE ! Process the ELSE clause 

IF .else_string NEQ 0 
THEN 

BEGIN 

Add a new Link to the command input stream. 


if NOT dbg$ncis_add (else gtr inet -else_string(0J, 
_ cis_Tf, 0, 0, 6, .mesSage_vect) 


2 V4.0-74 
IF THEN.B32;1 


NRETURN sts$k_severe; 
END; 

: Return success. 

RETURN sts$k_success; 

END; ! dbg$nexecute_if 


000¢ 00000 -ENTRY DBGSNEXECUTE_IF, Save R2.R3 
SE 10 C2 00002 SUBL2 #16, SP 
50 04 AC DO 00005 MOVL §_ VERB_NODE, RO 
50 08 Ad 00 00009 MOVL  8(ROJ, CONDITION NODE 
3¢ 08 a0 Db0 0000D MOVL § 8(CONDITION NODES, THEN_NODE 
5 08 A2 D0 00011 MOVL 8 (THEN NODES, ELSE_NODE 
04 AE 91080004 8F D0 00015 MOVL #17301508, vAx_DEST 
08 AE 6E 9E 0001D MOVAB CONDITION VALUE, VAX_DESC+4 
OC AE D4 90021 CLRL - VAX_DESC+ 
06 000000006 00 91 00024 CMPB § DBGSGB_LANGUAGE, #6 
08 12 000 BNEQ 1 
06 AE : 00020 MOVB #40, VAX_DESC+2 
04 AE 1 B0 B08 1 MOV #1, BES 
6E D4 00035 18: CLRL CONDITION_VALUE 
08 AC DD 00037 PUSHL MESSAGE VECT 
08 AE 9F O003A PUSHAB VAX_D 
7E 82 8F 9a 000 MOVZ7BL #130, -<(SP) 
01 DD 00041 PUSHL #1 
60 DD 0043 PUSHL (CONDITION NODE ) 
000000006 00 05 FB 0004 CALLS #5, DBGSNTYPE_CONV 
0 £9 0004C BLBC =—_s«RO. 6 
0 $¢ DO 0004F MOVL (THEN NODE), THEN_STRING 
p 0052 TSTL SE_RODE 
03 0054 BEQL 
52 63 pd 00056 MOVL (ELSE NODE), ELSE_STRING 
02 11 00059 BRB 3 
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Routine Base: 


146 bytes, 


; Routine Size: 


| DBGIF THEN 

| VOS=000 
: 465 594 
3; 466 232 
; 467 38 
: 085 089 
: 433 $398 
; 471 0600 
3; 47 0601 
; 467 060 
; 674 060 
3; 475 0604 
: 467 pe8s 
3; 467 06 
; 478 060 
: 4679 0608 
; 480 0609 
; 481 0610 
; 48 0611 
>. «& pots 
>; 4 061 
; 4485 0614 
; 486 0615 
; 487 pote 
; 488 061 
; 489 0618 
; 490 0619 
; 491 peso 
; 49 0621 
; 49 06 ¢ 
> 494 06 
3; 4495 0624 
>; 4 0625 
: 497 0626 
: 498 0627 
; 499 0628 
; 500 +434 
; 501 0630 
; 0631 
5 4 Boss 
; 504 063 
3; 305 0634 
: 208 0635 
; 50 06 
: o08 06 
; 509 0638 
; 510 0639 
; a! 0640 
3 i 0641 
3 31 Rees 
3; 514 
3 a2 4 
3; 516 5 
s 37 nese 
rT 518 
ee ha 8 
; $9 9 
; 1 0650 
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GLOBAL ROUTINE dbg$nparse_while(input_desc, verb_node, message_vect) = 


Functional Description 


ATN parse network for the WHILE verb. . 
This routine takes a verb node for the WHILE verb, and a string 
descriptor for the remaining (unparsed) input. 3 

A command execution tree is built. The form of the tree is: 


: verb node i-=>--! noun node i-=>--! noun node | 


The first noun node points to a value descriptor for the condition. 
The second noun node points to a counted string with the DO clause. 


Formal Parameters 


input_desc - A longword ye the address of the 
command input descriptor. 
verb_node - A longword containing the address of the verb node. 


message_vect - The address of a longword to contain the address 
of a standard message argument vector. 


! Implicit Inputs 


none 


Implicit Outputs 


On success, the command execution tree is constructed. : 
On failure, a message argument vector is constructed or obtained. 


' Routine value 


- Success. Command execution tree constructed. 
- Failure. Error encountered. Message argument 
constructed and returned. 


sts$k_success (1) 
sts$k_severe (4) 


Side Effects 


Permanent peaks is allocated for the string holding the DO clause; 
this is released in DBGSNEXECUTE_WHILE after execution. 


BEGIN 


MAP 


input_desc: REF dbg$stg_desc, 
verb_node: REF dbg$verb_node; 


BIND 
dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return), | 
dbg$cs_left_paren = UPLIT BYTE (1, Gogh. Lett _parenthesis). 
dbg$cs_do = UPLIT BYTE (4, ‘DO"); 

LOCAL 
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DEBUG. SRC IDBGIF 


v4.0-74 
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Link, ! Temporary to hold Links in the command 
: execution tree. 

noun node : REF dbg$noun_node, |! A node in the command execution tree. 

radix, ! Holds the current radix setting. 

status; ! Return status from subroutine calls. 


} Create and Link a noun node 


noun_node = cogsoet tempmem(dbg$k_noun_node_size); 
verb_node(dbg$l_verBb_object_ptr] = .noun_node; 


Determine the current radix. 
radix = .dbg$gb_radix(dbg$b_radix_input); 


! Obtain a value descriptor for the condition. The first noun node 
; points to this value descriptor. 


STATUS = DBGSNPARSE_EXPRESSION(.INPUT DESC, .RADIX, 
NOUN_NODE COBGS$L_ROUN VALUE], 
TOKENSK_TERM_DO,~ .MESSAGE_VECT); 


The return status should be ‘warning’, meaning that an expression 
was parsed and further input remains. If an expression was parsed 
and no input remains, NPARSE_EXPRESSION will return “‘success’’. 

In this context, it is an error since “WHILE exp’ by itself 

is an error. 


aQemcacacacacase 


F .status EQL sts$k_success 
HEN 

BEGIN 

message _vect = dbg$nmake_arg_vect (dbg$_needmore) ; 
Ae sts$k_severe; 


Severe status is also an error. 

a -Status EQL sts$k_severe 
RETURN sts$k_severe; 

Eat the DO 

ao dbg$nmatch (.input_desc, dbg$cs_do, 1) 
BEGIN 


“message vect = : 
(IF dbg$nmatch (- input dese. dbg$cs_cr, 1) 
OR .input_desc [dsc$w_length) EGL 6 


dbg$nmake_arg_vect (dbg$_needmore) 
dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
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| 
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Gl = (5) 
RETURN sts$k_severe; 
END; 


} Allocate and Link a noun node for the DO clause. 
(ink = noun_node Cdbg$l_noun_Link]; 
noun node = dbg$get_tempmem(dbg$k_noun_node_size); 
eLink = .noun_node; 
Eat the left parenthesis which we require be present. 
if NOT dbg$nmatch (.input_desc, dbg$cs_left_paren, 1) 
BEGIN 
message vect = 
UF ceeeonmatch (. input desc, dbg$cs_cr, 1) 
PARE LPS LORS (dbg$_needmore) 
BEGIN 
SIGNAL (dbg$_needparen) ; 
~ Satemten prrer (dbg$nnext_word (.input_desc)) 
RETURN sts$k. severe; 
END; 


! Put a pointer to the counted oer ing representing the DO 

' clause into the second noun node. (Note = the counted string 

! is constructed out of ‘‘permanent’’ memory which is released 

} in DBGSNEXECUTE_IF). 

dbg$nsave_break_buffer (. input desc, noun_node [dbg$l_noun_value)); 
Return success. 

RETURN sts$k_success; 


~-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
OD 01 6900 P.AAE: .BYTE 1, 13 


28 01 00010 PLAAF: “BYTE 1. 40 : 

04 00012 P-AAG: :BYTE 

Ff 44 0001 "ASCII \DO\ : 
DBGSCS_CR= P.AAE 
DBGSCS7LEFT_PAREN= P-AAF 
DBGSCS~DO= P AAG 

LPSECT DBGSCODE.NOWRT, SHR, PIC.O 
00F¢ 900 SENTRY DBGSNPARSE WHILE, Save R2.R3.R4.R5.R6.R7 — ; 0594 
57 000000006 00 9€ 000 HOVAB DBGSGET_TERPMEM, 'R 


a A OT RE 7 2 Sane RE LEE NSE 3 RRS Sih SS LOR 5 ee SSRIS ARINC 


18-sep-19 & 91:18:37 AX-11 Bliss-32 ne a 


14-Sep-1984 9 DEBUG. SRCJDBGIF THEN.B3 
SNMATCH, R6 
88 botbogoe «fF OF O019 HOVAB DBGSCS.CR, Rs 
{ pe $019 CALS #1, DBGSGET_TEMPMEM 
i 0 D Sore MOVL RO, NOUN_NODB 
6 DO O001F MOVL §VERB_NODE, R 
whe 80 MOVL § NOUNTNODE, 8(RO) 
ee 36 Bh 00 ; MOVZBL DBG$GB_RADIX, RADIX 
” apa Ae DD 0002E PUSHL MESSAGE _VECT 
2 ae ee 
52 06 =#OA ti BS ; VL INPUT _DESC, RE 
52 30 00085 ene EXPRESSION 
cpnarseone 98 DO 0004 MOVL RO. STATUS 
‘ D1 0004 CMPL = STATUS, #1 
" 48 13 00048 BEQL es 
of D1 0004A CMPL STATUS, #4 
™ 75 13 0004D BEQL © 6$ 
01 DD 0004F PUSHL #1 
04 AS 9F 00051 PUSHAB DBGSCS_DO 
be 3 PB ers CALLS 3, DEGSNMATCH 
7 A 33 Soose PUSHL n° 
$ B 0005E PUSHR #*M<R2,R5> 
66 63 Pe 00060 CALLS a3, DBGSNMATCH 
- 30 Ee ites ae (R2) 
44 12 00068 BNEQ 4$ 
se RNB | Ele few, um 
67 s PP $0072 att: "i, DBGSGET TEMPMEM 
a3 4 0 $0078 MOVE NOUN_NODE, (LINK) 
02 Pt! OF SOorB PUSHAB "pease 
a a ee 
$8 : 8 bo08s BLBS RO. 7S 
se Beet ee Bee th 
3 ee boat CALS #3, DBGSNMATCH 
oF eS $092 28: SUS #186 48 
ee: a PP $098 ™ CALLS #1, DBGSNMAKE_ARG_VECT 
peneanere : 5 } 11 O009F ore i 
0000 ae SR et eee Blt eee 
conenes a ee rr 
000000006 00 0 080 CALLS at 
0000 ay Pe B9 CALLS #1, DBGSNSYNTAX_ERROR 
a 95 4 CO 5$: MOVL RO. @MESSAGE_VECT 
* 8 04 C4 6$: MOVL #4. RO 
. be 000 RET 
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Routine Base: DBGSCODE + 
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epa19be 12:16:59 
PUSHR 
CALLS #2, 
move oat 
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GIF THEN 1bese -1984 01:18:37 AX-11 Bliss-32 V4.0-74 
voe-000 14-Sep-19 4 93:18:35 DEBUG. SRCIOBGIF HEN. B39: 1 
; 61 746 «1 AL ROUTIN nex hi 4 z= 
ois rg ! rom L ROUTINE dbg$nexecute_while (verb_node,message_vect) 
; 620 748 1°! Functional Description 
3 62) 749 «1! 
3 6 § *° Bek This routine performs the action associated with the WHILE 
s 6 yoy Une command. 
> 624 7 § 1: 
; 625 7 1 ! Formal Parameters 
; 6 $ 754 1! 
; § 735 1! verb_node - A Lenguers containing the address of the 
; 628 736 1! head (verb) node. 
; 629 7 1! message_vect - The address of a longword to contain the 
3 : 8 . : } address of an error message vector 
; 6 0760 1 ! Implicit Inputs 
3 © : 0761 1! , 
3; 6 the +} The command tree contains a verb node and a Linked List 
; 635 0765 1! of two noun nodes. (See the diagram in the header for 
; 636 0764 1! DBGSNPARSE_WHILE). 
; 637 0765 1! 
; 638 0768 1 ! Routine Value 
; 639 0767 1! 
; 640 0768 1! A completion code. 
; 641 0769 1! 
3 ote 0770 1 ! Completion Codes 
; 64 0771 1! 
: 646 0772 1! sts$k_success (1) - Success. Command executed 
3; 645 0773 1! sts$k_severe (4) - Failure. The command could not be 
3 oe 0774 1! executed. An error message is constructed. 
; 646 0775 1! 
; 648 0776 1! Side Effects 
3; 649 0777 1! 
; 650 0778 1! None 
; 651 0779 1 !-- 
; 636 0780 BEGIN 
: © 0781 
§ 078 P 
; 655 078 verb_node : REF dbg$verb_node; 
; 656 $4 
3; 657 785 LOCAL 
; 658 o7ee condition_node: REF dbg$noun_node, ! The noun node for the IF condition 
3; 659 44-44 condition_value, ' Should be TRUE or FALS 
; 660 7 do_node: REF dbgsnoun node, ! The noun node for the THEN clause 
; 661 78° do_string: REF VECTORL,WORD), ' Counted string for the do clause 
3 666 vax_desc: dbg$stg_desc; ! Target of the conversion from 
; 207 Hs ; the value descriptor. 
: 665 79 
3 666 A | : Recover the two noun nodes. 
; 668 oe condition_node = vere sate Cdbg$l_verb object_ptr); 
; 66° a4 do_node =~.condition_node (dbg$l_noun_Link); 
; or) 44 : Set up the vax descriptor for the condition. 
3 £78 801 vax_desc (dsc$b_class] = dsc$k_class_s; 
3; 674 802 vax_desc [dsc$b_dtype] = dsc$k_dtype_|; 
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vax desc (dsc$w_length] = 4; 
vax_desc cscze_pointer) = condition_value; 
vax desc [dsc$l_pos] = 0; 


! Special case for level 3 PASCAL. PASCAL returns descriptors 
of type boolean (dsc$k_dtype_tf) for relational expressions. 


if .dbg$gb_language EQL dbg$k_pascal 
IF ;,c098ab.languag g$k_p 


BEGIN 
vax.desc [dsc$b_dtype] = dscSk_dtype_tf; 
pos mene dsc$w_length] = 1; 


LES 
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4 } Initialize condition_value to zero. 
4 condition_value = 0; 
; Do the conversion from value descriptor to integer. 
8 IF NOT dbg$ntype_conv (.condition_node [dbg$l_noun_value], 
8 dbg$k_default, 
8 dbg$k_vax_desc, 
8 vax_desc, 
-message_vect) 


THEN 
RETURN sts$k_severe; 
Continue only of condition is true. For now, just use BLISS semantics. 
if -condition_value 
THE 
BEGIN 
Recover the do string. 


COOOCOCOCOCSOSOOOOCOOSCOOOCOOOOOOOOOOOOOOOOOOOoOO 


WANA 


do_string = .do_node Cdbg$l_noun_value); 
Add a Link to the command input stream 


iF NOT cogingts add (do_string{1], .do_string([0J, cis_while, 
, TRUE, 0, .message_vect) 


N 
RETURN sts$k_severe; 
END 


ELSE 2 
: Add a cis for null action 


AREER RE REE 


OOOCOCCOOCOOCOSOOSOoOoOo 
PADADAMMII 


dummy: REF VECTORC WORD); 
dummy = GbgSget_menory (1); f 
IF NOT dbg$ncis-add (dummyf1), 0. cis_while, 0, FALSE, 0, -message_vect) 


RETURN sts$k_severe; 
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he 60 END; 

 ¥ 61 

3; 7 ¢ ' Return success. 

; 735 6 ; 

: f 8 rf: RETURN sts$k_success; 

; 738 0866 END; ! dbg$nexecute_while 


0004 00000 .ENTRY DBGSNEXECUTE_WHILE, Save R2 7 0746 
SE 10 C3 9008 §UBL2 #16, SP : 
50 04 aC DO 0000 MOVL VERB_NODE, RO : 0796 
20 08 Ad DO 99009 MOVL (ROY CONDI TION_NODE ; | 
5 08 ad 00 0000D MOVL (CONDITION NODEY, DO_NODE 3 0797, 
04 AE 01080004 8F DO 00011 MOVL #17301508, DAX : 0803 | 
08 AE 6E 9E 00019 MOVAB CONDITION. VALUE, VAX_DESC+4 > 0804. 
OC AE 04 0001D CLRL VAX_DESC+ + 0805 | 
06 000000006 00 91 00020 CMPB = DBGSGB_LANGUAGE, #6 + 0810 
08 42 000 7 BNEQ = : | 
AE 8 90 00029 MOVB #40, VAX_DESC+2 + 0813) 
04 AE 1 BO 0002D MOVW o#'1, BESC > 0814 | 
6E D4 00031 1$: CLRL CONDITION VALUE : 0819 | 
08 AC DD 00033 PUSHL MESSAGE_VECT : 0827 | 
08 AE 9F 00036 PUSHAB VAX DESC + 0823, 
7E 82 8F 9A 00039 MOVZBL #130, -(SP) 3 
01 DD 0003p PUSHL #1 : 
60 DD 0003F PUSHL  (CONDITION_NODE) : | 
000000006 90 05 FB 00041 CALLS #5, DBGSNTYPE_CONV F | 
4 50 €9 00048 BLBC e : 
11 6— £9 00048 BLBC  CONDITION_VALUE, 2$ : 0833. 
50 62 D0 D004 MOVL § (DO_NODE)> DO_STRING ; 0839. 
08 AC DD 00051 PUSHL MESSAGE vecT 3 0844 | 
7E 01 70 00054 mMOVa. #1, =(SP) ; 0843, 
7E 05 7D 00057 MOVO #5. =(SP) : | 
7E 60 3C O005A MOVZWL (DO_STRING), -(SP) : | 
13° (11 9004p BRB 3$ : 
01 DD O005F 2s: PUSHL #1 > 0856. 
000000006 00 01 FB 00061 CALLS #1, DBGSGET_MEMORY ; 
08 AC DD 00068 PUSHL MESSAGE_VECT : 0857. 
43 C 00068 CLRQ. = = (SP) : | 
7E 9 7D 006 va #5, =(SP) ; 
F 4 CLRL = § ; 
02 Ad OF 007 3$ PUSHAB 2(DUMMY) ; 
000000006 00 07 FB 7 CALLS #7, DBGSNCIS_ADD : 
04 50 €8 0007C BLBS = «RO. «S$ ; 
50 04 BO orf 4$: MOVL #4. RO : 0859 
50 01 00 es S$: MOVL #1, RO > 0864 
04 000 RET : 0866 


3; Routine Size: 135 bytes, Routine Base: DBGSCODE + 028E 


3 
voe-000-" VESeocH9Rs HEHE YABGIE SSSR We ORZ42 ane 


: pe S67 ! GLOBAL ROUTINE dbg$riparse_for ut desc, verb_node, message_vect) = 

: % 3 ; Functional Description 

s pee 4 1 i ATN parse network for ® verb. 

: 745 8 § 1! This routine takes a node for the FOR verb, and a string 

3 ree bas 1: descriptor for the re . » (unparsed) input. 

; re pare ' A command execution tree is built. The form of the tree is: 

3 re O87 : + verb node j=-=->--! noun node i-->=-! noun node |! -=>== | noun node ! 
; fe a7 1: 

;. 0880 1! The first noun node contains a counted string with the name of the 

: Lf: 0881 1! loop variable. 

3; 755 et 1! The second noun node contains value descriptors with the lower and 

; 756 0883 1! upper bounds, and loop increment 

: ays te: ! The third noun node contains a counted string with the command List. 
: o28 ty, ! ! Formal Parameters 

: 761 0888 1! input_desc - A longword — the address of the 

3 r6¢ 0889 1! command input descriptor. 

; 76 0890 1! verb_node - A sys ote containing the address of the verb node. 
: 764 0891 1! message_vect - The address of a longword to contain the address 

5 re? +93 ’ } of a standard message argument vector. 

; rer bao ; Implicit Inputs 

: 769 0896 1: none 

: 770 0897 1! 

g 44 +384 : } Implicit Outputs 

: 77 0900 1} On success, the command execution tree is constructed. 

: 46 64 : On failure, a message argument vector is constructed or obtained. 

; re 04 : ; Routine value 

: 778 905 1! sts$k_success (1) - Success. Command execution tree constructed. 
3; 779 2908 gg sts$k_severe (4) - Failure. Error encountered. Message argument 
; ree 94:44 : } constructed and returned. 

; 28 909 i Side Effects 

: Ti 911 1: Permanent storage is allocated for the string holding the action 

; 785 B36 1! clause and for the string holding the loop variable name. 

3; 786 915 1! This is released in DBGSNCIS_REMOVE after execution 

A At ais : : of the action clause. 

: 789 16 hs 

3 as 4 BEGIN 

F 798 319 P 

; 79 920 input_desc : REF SbgSero desc, 

: a , 1 verb_node : REF dbg$verb_node; 

: 796 0958 BIND 


a 3 

GIF THEN 16-Sep-1984 01:18:37 AX-11 Bliss-32 V4.0-74 Page 23 
voe-000 1e-Sep-1 Bd 93:18:85 DEBUG. SRC IDBGIF THEN.B3 31 . 3 
; 797 924 dbg$cs_comma = UPLIT BYTE (1, dbg$k_comma), 
; 79 925 dbgscsncr = UPLIT BYTE (1, dbosk-car return), 
s fr 9 $ dbg$cs_equal = UPLIT BYTE (1, dbg$k_equal), 
; 800 9 dbg$cs_left_paren = UPLIT BYTE (1, Gogsk_lett_parenthesis), 
; 801 9 8 dbg$cs_by = UPLIT BYTE (2, 'BY'); 
; 80 9 dbg$cs_do = UPLIT BYTE (2, 'DO'), 
; 80 930 dbg$cs_to = UPLIT BYTE (2, ‘T0"); 
> 804 931 
; 805 9 ¢ LOCAL 
; 806 09 Link, ! Temporary to hold Links in the command 
; 807 9 : execution tree. 
; 3 935 noun_node : REF dbg$noun_node, ! A node in the command execution tree. 
; 809 9 $ radix, ' Holds the current radix setting. 
; 810 09 status; ! Holds return status from subroutine 
; 811 0938 : calls. 
; sig 0939 
; 81 0940 
; gi3 : Create and Link a noun node 
; 816 noun_node = dbeSget tempmem (dbg$k_noun_node_size); 
: +4 verb_node(dbg$l_verB_object_ptrJ =".noun_node; 
; 819 ! Pick up the name of the Lope counter. 
: 820 ! Note that dbg$nread_name allocates permanent storage for the name. 
: 821 ! This must be released in DBGSNCIS_REMOVE when the command buffer is 
; 638 no longer needed. 
: B26 if NOT dbg$nread_name (.input_desc, 
; 825 noun_node Cdbg$l_noun_value), 
; 826 -mesSage_vect 
; 827 THEN 
3 : : RETURN sts$k_severe; 
; 880 : Eat the = 
; Be iF NOT dbg$nmatch (.input_desc, dbg$cs_equal, 1) 
3; 85 THEN 
3 te report_error; 
; H ! Create and Link a noun node 
$ tH ‘ 
3; 8 Link = noun_node Cdbg$l_noun_Link); 
; 839 noun _node = dbgSget_ empmem Tdbg$k_noun_node_size); 
: ? - link = .moun_node; 
; § : Determine the current radix. 
; 4 radix = .dbg$gb_radix(dbg$b_radix_input); 
; $ ! Obtain a value descriptor for the lower bound. The noun_value field 
; H } points to this descriptor. 
; 849 STATUS = DBGSNPARSE_EXPRESSION(.INPUT_DESC, .RADIX, 
; B50 NOUN, NODE DBG$L_NOUN_ VALUE) 
: 89 TOKERSK_TERM_TO,~.MESSAGE_VECT); 
; 8 ! The return status should be ‘warning’, meaning that an expression 


Nn 3 | 
DBGIF THEN 16-Sep-1984 01:18:37 AX-11 Bliss-32 V4.0-74 Page 24 
voe-000 122868-1 382 95:18:85 DEBUG. SRCTDBGIF THEW.0495 1 ¥ hae 
; 854 981 ! was parsed and further input reamins. If an expression was parsed 
; 36 9 § : but nO nput remains then DBGSNPARSE_FXPRESSION will return success. 
; 26 9 i In this context, it is an error since” REPEAT count’ by itself 
; ; ¢ } S$ an error. 
: 889 386 IF .status EQL sts$k_success 
; 860 9 THEN 
; 861 988 BEGIN 
; 86 989 message _vect = dbgSnmake_arg_vect (dbg$_needmore); 
; 86 990 RETURN sts$k_severe; 
3; 864 991 END; 
; £02 338 
; 866 99 ! Severe status is also an error. 
; Hes 994 : 
; 868 0995 IF .status EQL sts$k_severe 
; 869 9398 
; 870 099 RETURN sts$k_severe; 
; 871 0998 
3 a76 0999 ! Eat the "TO"'. 
3 87 1000 : 
; 874 1001 IF NOT dbg$nmatch (.input_desc, dbg$cs_to, 2) 
; 875 Ie THEN 
; 876 100 report_error; 
; 877 1004 
; 878 1005 ! Obtain a value descriptor for the upper bound. The noun_value2 field 
3 444 1308 points to this descriptor. 
>; 881 1008 STATUS = DBGSNPARSE_EXPRESSION(.INPUT_DESC, .RADIX, 
; 882 1009 NOUN _NODE~CDBG$L_NOUN, VALUE2) 
; 88 1010 TOKENSK_TERM_BY,~ .MESSAGE_VECT); 
>; 884 1011 
; 885 Isis 
; 886 101 ! The return status should be ‘warning’, meaning that an expression 
; 887 1014 ! was parsed and further input reamins. If an oepress ine was parsed 
; 888 1015 : but no input remains, then DBGSNPARSE_EXPRESSION will return success. 
; 889 1016 i In this context, it is an error since” REPEAT count’ by itself 
; 890 101 ! is an error. 
; 891 1018 : 
; 89 1019 IF .status EQL sts$k_success 
; 89 1020 THEN 
; B3¢ 1021 BEGIN 
; 895 10 § message _vect = dbg$nmake_arg_vect (dbg$_needmore); 
; 896 10 RETURN sts$k_severe; 
; 897 1024 END; 
; 898 1025 
; 899 10 $ ! Severe status is also an error. 
: 900 10 : 
: 4 1% $ IF ,status EQL sts$k_severe 
: 90 19 RETURN sts$k_severe; 
3; 904 1031 
; 905 1936 ! Check for BY clause. 
: 1 4 
3 309 1 If dbg$nmatch (.input_desc, dbg$cs_by, 2) 
; 908 1035 THEN 
; 909 1 BEGIN 
; 910 1 
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Obtain a value descriptor for the increment. 


STATUS = DBGSNPARSE_EXPRESSION(.INPUT_DESC, .RADIX, 
NOUN NODE CDBGSL_AOJECTIVE PTR, 
TOKERSK_TERM_DO,~.MESSAGE_VECT); 


The return status should be ‘warning’, meaning that an expression 
was parsed and further input reamins. If an gipcese ten was parsed 
but no input remains, then DBGSNPARSE_EXPRESSION will return success. 
In this context, it is an error since’ FOR I=1 TO N BY’ by itself 

S an error. 


aetcacasacacoce 


F .status EQL sts$k_success 
HEN 
BEGIN 


-message_vect = dbg$nmake_arg_vect (dbg$_needmore); 
on sts$k_severe; 


: Severe status is also an error. 

it -Status EQL sts$k_severe 
RETURN sts$k_severe; 

END 


ra Cdbg$l_adjective_ptr] = 0; 
| Eat the *“po"’. 
a dbg$nmatch (.input_desc, dbg$cs_do, 2) 
report_error; 
Allocate and Link a noun node for the action clause. 
Link = noun_node Cdbg$l_noun_Link]; 
noun_node = dbg$get_tempmem Cdbg$k_noun_node_size); 
-link = .moun_node; 
: Eat the left parenthesis which we require be present. 
ed dbg$nmatch (.input_desc, dbg$cs_left_paren, 1) 
report_error; 


if 
THE 


' Put a pointer to the counted — representing the action 

: ¢lause into the second noun node, (Note - the counted string 

! is constructed out of ‘‘permanent’’ memory which ts released 

! in DBGSNCIS_R ). : 

! The third argument indicates that save _break_buffer is not being 
! called Gurion parsing of a SET BREAK DO (The routine behaves 

} slightly differently in that case) 

d 


bg$nsave_break_buffer (.input_desc, noun_node [dbg$l_noun_value]); 
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Return success. 
RETURN sts$k_success; 


C 1 001 
So ats 
D 4 00019 
28 1 Beate 
0 001D 
59 4&4 4 $43 
0 O88 
4F 464 00021 
02 00023 
4F 54 00024 
OFFC 00000 
5S 00000000G 00 9€ 00002 
5A 000000006 00 9€ 00009 
9 00000000G 00 9€ 00016 
8 00000000' F 9E 00017 
4 DD OOOTE 
68 1 FB 000 
5 0 »p0 000 
5 08 as DO 00026 
AO 5 0 it 
54 0c AC D 5 
14 BB 0 
53 046 ac 00 000 
: $3 bp O00%8 
gS EF Ses 
OOF D 1 44 
01 Dd 47 
02 AB 9F 00049 
G3 FR Goo 
Bag 38 BE 2008) 


1b-sep-19 4 
ae eb 9 


1:18:37 s-32 ve 0-238 
2:16:59 DBGIF THEN.B32;1 
PSECT DBGSPLIT.NOWRT, SHR, PIC,0 
-AAH: .BYTE 1, 464 
“AAL: BYTE 1. 13 
AAJ: BYTE 1. 61 
“AAK: BYTE 1. 40 
~AAL: .BYTE 2 
ASCII \BY\ 
-AAM: .BYTE 2 
“ASCII \DO\ 
P.AAN: .BYTE 2 
“ASCII \TO\ 
DBG$CS_COMMA= 
DBG$CS~CR= 
DBG$CSEQUAL= 
DBGS$CS_LEFT_PAREN= 
DBG$CS_BY= 
BG$CS~DO= 
DBGS$CS~TO= 
.PSECT DBGSCODE.NOWRT, SHR, PIC.O 
ENTRY DEGSNPARSE _FOR, Save R2,R3.R4,R5,R6,R7,R8,- 
MOVAB DBGSGET TEMPMEM, R11 
MOVAB DBGSNPARSE_EXPRESSION, R10 
MOVAB DBGSNMATCH, R9 
MOVAB DBG$CS_CR, R8 
PUSHL #4 
CALLS #1, DBGSGET_TEMPMEM 
MOVL NOUN 
MOVL §VERB_NODE, RO 
MOVL NODE 
MOVL MESSAGE VECT 
PUSHR #*M<R2,R4 
MOVL —INPU 
PUSHL ; 
CALLS #3, BBGSNREAD_NAME 
BLBS RO $ 
$: BRW 13§ 
$: PUSHL #1 
PUS DBGS$CS_EQUAL 
SHL oR 
CALLS #3, RBGSNMATCH 
BLBC =—._«RO._« 38 
VAB  8(R2), LINK 


Page (38 


0867 | 


0965 


dD 4 
16-Sep-1984 01:18:37 AX-11 Bliss-32 V4.0-74 Page 27 
13-08-13 Pa ae 14 DEBUG. SRCIDBGIF THEN.B3 31 . (3 
4 0D 8 PUSHL #6 3 0966 
&. A CALLS #1, DBGSGET_TEMPMEM : 
; 4 5 ROVE. NOUN RODEN (LINK) * 9967 
% 000000006 BA be8 MOVZBL DBGSGB_RADIX, RADIX : $991 
4 0D 0006A PUSHL R4 : 097 
p DD 0006C PUSHL #13 : 097 
DD O6F PUSHL NOUN_NODE : 
0048 F 8B 0007 PUSHR #*M<R3,R6> : 
6A 05 : 0074 CALLS #5, DBGSNPARSE_EXPRESSION : 
5 g DO 00077 MOVL RO, STATUS : | 
01 5 Dt 007A CMPL = STATUS, #1 : 0986. 
1g 1 7D BEQL : 
04 55 Di 0007F CMPL STATUS, #4 : 0995 
CO 613 00082 BEQL ~=séCsdS ; | 
02 Dd 00084 PUSHL #2 : 1001. 
0c AS 9F 000 PUSHAB DBG$CS_TO : | 
53 DD 0008 PUSHL : | 
69 g FB 00088 CALLS #3, DBGSNMATCH : 
12 0 E8 O0008E BLBS = RO, 6S : | 
01 DD 00091 3s: PUSHL #1 : 1002. 
0108 8F 6B 90095 PUSHR #*M<R3,R8> : 
69 03 097 CALLS #3, DBGSNMATCH : 
03 50 0009A BLBC =—E_s«aRO,_: S$ : 
0080 $1 00090 4s: BRW 10$ : | 
008C 31 OO0A0 S$: BRW 11$ : 
54 DD 000A3 6S: PUSHL R4 : 1010 
Og DD 000A PUSHL #14 : 1009 
OC Ac 9F OOOA PUSHAB V2CNOUN NODE) : | 
0048 8F 8B OOOAA PUSHR #°M<R3,R6> : 
6A 95 FB OOOAE CALLS #5, DBGSNPARSE_EXPRESSION ; 
55 0 dO 00081 MOVL RO. STATUS : 
01 55 D1 00084 CMPL = STATUS, #1 : 1019 
67 13 00087 BEQL 10 ; 
04 55 Di 00089 CMPL STATUS, #4 : 1028 
86 13 000BC BEQL ~=sés«s1S : | 
02 od 0008 PUSHL #2 > 1034, 
06 AS 9F 000C PUSHAB DBGSCS_BY : | 
53 DD 000C PUSHL R F 
69 g FB d90¢ CALLS #3, DEGSNMATCH F 
1D 0 €9 000C8 BLBC =—._«aRO. 7S ; 
54 DD 000CB PUSHL R4 > 104 
05 pp 00CD PUSHL #5 > 104 
04 A2 9F OOOCF PUSHAB 4(NOUN_NODE) : 
0048 8F 8B 000D2 PUSHR #°M<R37R6> : 
6A 0S FB 00006 CALLS #5, DBGSNPARSE_EXPRESSION : 
55 g DO 00009 MOVL RO. STATUS : 
01 D1 0000C CMPL STATUS, #1 : 1050 
F 13 O0oF BEQL : | 
04 5 pi 00E1 CMPL STATUS, a4 : 1059. 
95 : O0E4 BNEG ; 
. 4 O06 BRB 13$ > 1061 
04 A2 D4 OOOEB 7S: CLRL  4(NOUN_NODE) > 1066 
0 bb OEB 8S: PUSHL @# : 1070. 
09 AB SF OO0E PUSHAB DBGSCS_DO ; 
3 DD OF PUSHL : 
69 FB OOOF CALLS #3, DBGSNMATCH : 


4 
DBGIF THEN 1b-sep=1 
v04=000 1a-Sep-1 
1 50 £9 O00F 
oo BAH 
| DD O00FC 
1 F rE 
Q D0 001 
é DO 001 
1 po 90107 
06 a8 9F 001 
9 ag PB Blog 
$2 85 EB b015 
1 BD O14 98: 
| 0108 8F BB 00116 
69 3 FB OO1TA 
OF 0 €9 00110 
00028000 &F dD 00120 108: 
000000006 00 1 FB 00126 
1g 11 00120 
3$ pb O01gr 118: 
000000006 00 Q1 FB 00181 
0 DD 001 
000000006 00 Q1 FB 001A 
64 0 DO 00141 128: 
50 04 D0 00144 18$: 
04 00147 
52 DD 00148 148: 
5$ DD OO14A 
000000006 00 02 FB O014C 
50 01 DO 00153 
04 00156 
5 


; Routine Size: 343 bytes, Routine Base: DBGSCODE + 031 
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RO, 9$ 

ache), LINK 

#1, DBGSGET_TEMPMEM 
RO, NOUN_NOB 
NOUN_NODE, (LINK) 
ation ste 
#3, DBGSNMATCH 

RO, 14$ 

#°M<R3,RB> 

#3, DBGSNMATCH 

RO, 11$ 

#164048 

“", DBGSNMAKE_ARG_VECT 

R 

#1, DBGSNNEXT_WORD 

#1, DBGSNSYNTAX_ERROR 

0, (R4) 

#4, RO 

NOUN NODE 

#2, DBGSNSAVE_BREAK_BUFFER 
#i, RO 
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16-Sep-1984 01:18: AX=11 Bliss-32 vé.0-76 
; 31833 RCWDBGIFY 


14-Sep-1984 
GLOBAL ROUTINE dbg$nexecute_for (verb_node,message_vect) = 
Functional Description 


DEBUG.SR HEN.B32; 


This routine performs the action associated with the FOR 


command. 


i Formal Parameters 


verb_node -A ere = the address of the 


head (verb 


message _vect - The address ~y ° “ Longword to contain the 
address of an error message vector 


amplicit Inputs 
ree command tree contains a verb node and a 


Linked List 


of three noun nodes. (See the diagram in the header for 


DBGSNPARSE _FOR). 


Routine Value 


A completion code. 


Completion Codes 


sts$k_success (1) 
sts$k_severe (4) 


- Success. Command executed 
- Failure. The command could not be 


executed. An error message is constructed. 


Side Effects 


None 


BEGIN 
MAP 


verb_node : REF dbg$verb_node; 


LOCAL 


action_node: REF db enoun nods. 


action_string: REF VECTORC,Q0RD), 
bounds_node: REF dbg$noun_ node, 
dummy 

Loop_ "Incr, 

Lower _bound, 


new_valdesc: REF dbg$valdesc, 
new_varname, 


symid_list, 
per” bound, 


valdesc: REF dbg$valdesc, 
var_node: REF dbg$noun_node, 


The noun node for the action clause 
Counted string with the action clause 
Noun node with the upper and 

lower bounds 
Dummy output parameter 
Loop increment 
An integer with the lower 

loop boun 


' A copy of a value descriptor 
' Pointer to a copy of the 


variable name 


! Points to a List of symids 
! An integer with the upper 


loop bound 


' A pointer to a value 


descriptor 


' The noun node rvith the loop 


| 4 
GIF THEN 1-se -1984 01:18:37 AX-11 Bliss-32 V4.0-74 Page 30 
vOe-000 12280871382 93:18:35 DEBUG. SRC IDBGIF THEN.B3 31 . Bs 
3 19 ¢ 1138 : variable 
3 1 11 var_name: REF VECTORC,BYTE), ! The counted string with the 
; 10 1160 : variable name 
; 1035 1161 vax_desc: dbg$stg_desc; ! Target of the conversion from 
3 18 1306 : he value descriptor 
3; 3 116 : representing the count. 
3 13 118e : Recover the noun nodes. 
: 1040 1166 var_node = .verb_node Cdbgsl verb-object ptr]; 
; 1061 116 var_name = .var_node (dbg$l_noun_valuel; 
; 104g 1168 bounds_node = .Var_node [dbg$l_noun_Link); 
3 104 139? valdesc = .bounds_node Cdbg$l_noun_value]; 
3 1044 1170 action_node = .bounds_node dbg L_foun_link]; 
; 1s? AT a action_string = .action_node (dbg$l_noun_valuel; 
3 100? 1198 ! Set up the vax descriptor for the bounds. 
; 1048 1174 ! This vax descriptor is of type sneeger lLongword, and is used to convert the 
3; 1049 1175 : Language specific value descriptor for loop bounds to an 
3 O38 1178 } integer quantity that we can use in a lLanguage-independent way. 
3 1936 1178 vax_desc Cdsc$b_class] = dsc$k_class_s; 
: 105 1179 vax_desc [dsc$b_dtype] = dsc$k_dtype_l; 
: 1054 1180 vax_desc [dsc$w_length] = 4; 
3 192? bt 2 vax_desc ([dsc$a_pointer] = lower _bound; 
; Ht 4 1188 Do the conversion from value descriptor to integer. 
; 1059 1185 IF NOT dbg$ntype_conv (.valdesc 
> 1060 1186 dbg$k_default, 
: 1061 1187 dbg$k_vax_desc, 
3 1008 1188 vax_desc, 
3; 106 1189 emessage_vect) 
3 1064 1190 THEN 
: 1065 1191 RETURN sts$k_severe; 
; 1066 1136 
3 24 tay : Do the conversion again, this time picking up the upper bound. 
3; 1069 1195 ; vax desc C[dsc$a_pointer] = upper_bound; 
: 1070 1196 IF ROT dbg$ntype_conv (.bounds_node Cdbg$l_noun_value2J, 
3 1071 1197 dbg$k_default, 
: 164 1198 dbg$k_vax_desc, 
; 107 1199 vax_desc, 
3; 1076 1200 -message_vect) 
; 1075 1$9) THEN 
: Ha : 4 RETURN sts$k_severe; 
3 Hy 344 1206 ; Do the conversion once again, this time with the loup increment. 
; 1080 1 5) IF .bounds_node ([dbg$l_adjective_ptr] EQ. 0 
: 1081 120 THEN 
; 108s 1208 loop_incr = 1 
: 108 1209 
; Hs 1210 BEGIN 
: 1085 1211 vax desc [dsc$a_pointer] = loop_incr; ae = 
3 1988 1 if IF ROT dbg$ntype_conv (.bounds_fiode Cdbg$t_adjective_ptr). 
; 108 121 dbg$k_default, 
3; 1088 1214 dbg$k_vax_desc, 


TT 
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vax_desc, 
-message_vect) 
THE 


N 
- RETURN sts$k_severe; 


33233 


094 

833 : If the loop increment is zero then signal an error. 
O99 if .loop_incr EQL 0 

098 THEN 

099 SIGNAL (dbg$_loopincr); 


} If the upper bound is below the lower bound, do nothing. 


if (.loop_incr GTR 0 AND .upper_bound LSS .lower_bound) 
OR (.loop_incr LSS 0 AND .upper_bound GTR .lower_bound) 


RETURN sts$k_success; 
Make a value descriptor for the initial value of the loop variable. 
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wd 


new_valdesc(dbg$w 
new_valdescldbg$b w 
new_valdesc(dbg$b_dhdr_lan 

new_valdescidbg$b_dhdr_kin k data; 
new_valdesc(dbg$b_dhdr_fcode) = rst$k type stonic; 
new_valdesc(dbg$b_value_class] = dsc$k_class_s; 
new_valdescidbg$b_value_dtype] = dsc$k_dtype_l; 
new_valdescldbg$w_value_length] = 4; 
new_valdesc(dbg$l_value_pointer] = new_valdesc(dbg$l_value_value0); 
new_valdesc(dbg$l_value_value0] = .lower_bound; 


new_valdesc = dbgSget_menory (abosk valdesc_base size+4); 
-d 


! Also make a copy of the variable name. This is because the original 
! varname pointer is being saved away by dbg$ncis_add and we don‘t 
: want to free it twice. 


, nb dd eh he ee et ae ek kd 


new_varname = dbg$get_memory (1+. var_name([0]/4); 
ch$move (1+.var_name(0], .var_name, snew_varname); 
IF NOT dbg$def_Sym_add (.new_Varname, deTine_value, 
-new valdesc, 
FALSE, dummy, .message_vect) 
THEN 
RETURN sts$k_severe; 


! Add a Link to the command input stream, containing the action 
} string and the upper bound. 


if NOT dbg$ncis_add (action_string({1], .action_string(0], cis_for, 
-upper_bound, .var_name, .loop_incr, .message_vect) 


THEN 

RETURN sts$k_severe; 
Return success. 
RETURN sts$k_success; 
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GLOBAL ROUTINE dbg$nparse_repeat(input_desc, verb_node, message_vect) = 
Functional Description 
ATN parse network for the REPEAT verb. 
This routine takes a verb node for the REPEAT verb, and a string 


descriptor for the remaining (unparsed) input. 
A command execution tree is built. The form of the tree is: 


4 
7) 
_ 
~~" 
83 
= 
nm 
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+ verb node i==>=-! noun node i-=->--! noun node | 


COO SAN 


WN OO OONOUSw 


The first noun node points to a value descriptor for the count. 
The second noun node points to a counted string with the action clause. 


Formal Parameters 


input_desc - A longword gy the address of the 

command input descriptor. 
verb_node -A conquer’ containing the address of the verb node. 
message_vect - The address of a longword to contain the address 


of a standard message argument vector. 
Implicit Inputs 
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none 
! Implicit Outputs 


On success, the command execution tree is constructed. ¢ 
On failure, a message argument vector is constructed or obtained. 


Routine value 
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08 sts$k_success (1) - Success. Command execution tree constructed. 
09 sts$k_severe (4) - Failure. Error encountered. Message argument 
NM constructed and returned. 
\¢ Side Effects 
14 Permanent storage is allocated for the string holding the action 
15 clause; this is released in DBGSNEXECUTE_REPEAT after execution 
\¢ of the action clause. 
19 
1? BEGIN 
$3 ow 
§ input_desc : REF SogSerte desc, 
? verb_node : REF dbgSverb_node; 
5 
§ dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return), | 
dbg$cs_left_paren = UPLIT BYTE (1, gdaph Lett parenthesis). 
: dbg$cs_do = UPLIT BYTE (2, ‘°DO'); 
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1B-Sen-1964 01:18:57 YAK=11 BLigs-52_ v4 


LOCAL 


Link, ! Temporary to hold Links in the command 
; execution tree. 

noun_node : REF dbg$noun_node, ! A node in the command execution tree. 

radix, ' Holds the current radix setting. 

status; Holds return status from subroutine 


calls. 


Create and Link a noun node 


noun_node = dbg$get_tempmem(dbg$k_noun_node_size); 
verbonode(dbg$t.ser6.obsect ptr = ,noun_node; 


Determine the current radix. 
radix = .dbg$gb_radix(dbg$b_radix_input); 


' Obtain a value descriptor for the count. The first noun node 
: points to this descriptor. 


STATUS = DBGSNPARSE_EXPRESSION(.INPUT_DESC, .RADIX, 
NOUN_NODE~CDBG$L_NOUN VALUE], 
TOKENSK_TERM_DO,~ .MESSAGE_VECT); 


The return status should be ‘warning’, meaning that an expression 
was parsed and further input reamins. If an euerese ie" was parsed 
but no input remains, then DBGSNPARSE_EXPRESSION will return success. 
in this context, it is an error since’ REPEAT count’ by itself 

S an error. 


ee th 
= 


ee EQL sts$k_success 
BEGIN 
message _vect = dbgSnmake_arg_vect (dbg$_needmore); 
RETURN sts$k_severe; 
END; 
Severe status is also an error. 
if .Status EQL sts$k_severe 
RETURN sts$k_severe; 
Eat the DO. 
if NOT dbg$nmatch (.input_desc, dbg$cs_do, 1) 
BEGIN 
-message_vect = 
Ur ge ormatch (,input desc, dbg$cs.cr, 1) 
gagSnnche_org_vect (dbg$_needmore) 


Coghnsynton orver (dbg$nnext_word (.input_desc))); 
RETURN stsdk_severe; 
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} Allocate and Link a noun node for the action clause. 


Link = noun_node Cdbg$l_noun_Link); 
noun node = dbg$get_tempmem 


(bg$k_noun_node_size); 
= ,noun_node; 


Eat the left parenthesis which we require be present. 
if NOT dbg$nmatch (.input_desc, dbg$cs_left_paren, 1) 


= 
atch (.input_desc, dbg$cs_cr, 1) 
gogtraske_org_vect (dbg$_needmore) 


BEGIN 
SIGNAL (dbg$_needparen) ; 
dbg$nsyntax_error (dbg 


° $nnext_word (. input _desc)) 
RETURN sts$k_severe; 
END; 


Put a pointer to the counted string representing the action 
clause into the second noun node. (Note = the counted string 

d out of ‘‘permanent’’ memory which is released 

in DBGSNEXECUTE_REPEAT). 

The third argument indicates that save_break_buffer is not being 
parsing of a SET BREAK DO (The routine behaves 


rently in that case) 


dbg$nsave_break_buffer (.input_desc, noun_node [dbg$l_noun_value)); 


! Return success. 
RETURN sts$k_success; 
END; 


DBGSPLIT,NOWRT, 


GS$CS_CR= 
CS"LEF T_PAREN= 
G$CS"D0= 


-PSECT DBGSCODE .NOWRT, 
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16-Sep-1984 01:18:37 AX-11 Bliss-32 V4.0-74 Page 37 
-Sep- 216: UG. HEN. 3 (9) 
1a-Sep 138 93 16 Hs DEBUG. SRCJDBGIF THE os 1 . 3 
OOFC «ENTRY DBGSNPARSE_REPEAT, Save R2,R3,R4,R5,R6,R7 = 1273 
? 0 9000 G 00 3 MOVAB DBGSGET_TEAMPMEM, R7 : 
: G VAB  DBGSNMATCH, : 
000000 F OE 19 OVAB DBGSCS_CR, RS : 
DD PUSHL # + 1341 
4 1 
8 Sasi aut de RbGRCRagpEnPMEN : 
0 08 AC OD 1F MOVL  VERB_NODE, $ 1342 
08 A0 34 p ; OVL OUN"NODE, 8(RO : 
5 000000006 0 9A 0 MOVZBL DBG$GB_RADIX, RADIX : 1346 
C at DD PUSHL MESSAGE_VECT + 135 
: DD PUSHL # + 1352) 
1 6 PUSHR #*M<RO,R4> 3 
52 04 s D0 0033 MOVE INPUT_DESC, R2 : 1351 
000000006 99 FB 000 CALLS #5, DBGSNPARSE_EXPRESSION : 
° D 04 MOVL RO, STATUS s 
01 33 D4 0045 cMPL TATUS, #1 + 1362 
04 53 D1 O004A CMPL STATUS, #4 : 1371) 
71 13 00040 BEQL «= 6S : 
DD 0004F PUSHL # : 1 
01 00 1 377 
«8S Be Riis] URE gescsno 2 
66 68 FB 0056 CALLS #3, DBGSNMATCH : 
0c 0 £8 0005 BLBS RO. 18 : 
1 DD 0005¢ PUSHL + 1381 
4 6B Ba82 PUSHR #*M<R2,R5> $ 
‘ $3 eS tones AES gs Bgeerares : 
26 11 000 BRB , : 1383 
53 08 AG OE itt 1$: MOVAB &(R4), LINK : 1391. 
04 0D 0006C PUSHL @# : 1392. 
7 1 F O06 CALLS #1, DBGSGET_TEMPMEM : | 
4 D MOVL RO, NOUN_NODE : 
0 0 0 6 
x at Bo Ganesh RUN.NOE, CLINE a] 
02 a3 i OF PUSHAB DBGSCS_LEFT_PAREN ; 
66 08 Fe O7F CALLS #3, DEGSNMATCH : 
40 E BLBS RO. 7S ; 
1 OD PUSHL > 1401 
4 6B PUSHR #*M<R2,R5> : 
66 : FB CALLS #3, DBGSNMATCH : 
F E 88 BLBC OC séiR : 
00028000 BF oD gE 28: PUSHL #164048 t 1403 
000000006 00 ! it 34 CALLS #1, DBGSNMAKE_ARG_VECT ; 
00028743 F DD H 3$: PUSHL #165699 + 1406. 
000000006 00 1 FB OOOA CALLS #1, LIBSSIGNAL ; 
; DD OOOAA 4$: PUSHL 3 1407 
000000006 00 i FB CALLS ‘ . DBGSNNEXT_WORD : 
000000906 00 1 F CALLS #1, DBGSNSYNTAX_ERROR ; 
C eC 0 D B i$: MOVL RO, aMESSAGE_VECT > 1401 
4 20 CO 6$: MOVE #4, RO ; 1409 


esau 


; Routine Size: 
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GLOBAL ROUTINE dbg$nexecute_repeat (verb_node,message_vect) = 


} Functional Description 
This routine performs the action associated with the REPEAT 
command. 


i Formal Parameters 


VMFWn—O0Oo~ 


verb_node -A = containing the address of the 
head (verb) node. 

message_vect - The address of a longword to contain the 
address of an error message vector 


i Implicit Inputs 

The command tree contains a verb node and a Linked List 
of two noun nodes. (See the diagram in the header for 
DBGSNPARSE_REPEAT). 


i Routine Value 
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3 7 1 7% 

3: 1 1 ,: 

3; 1 1 gg 

3% 1 1 

3; 3 1440 1 

3 1 1441 1 

3% 1 $s 1 

3; 1445 1! 

3 1% 1444 1 

3; 1 1445 1 

3 1 1 re 1 

3 3 1447 1 

3 3 1448 1 

3 1 1449 1 A completion code. 

< ay ic Letion Cod 

3 ! Completion Codes 

3 1 1026 ,! 

; 1 1455 1 sts$k_success (1) - Success. Command executed 

3 3 1454 1 sts$k_severe (4) - Failure. The command could not be 

3 : soee : executed. An error message is constructed. 
3; 3 1489 1! Side Effects 

so es 7} 

3 3 1459 1! None 

3; 3 Me 1460 1 !-= 

3 7 1461 BEGIN 

3; 1338 He | 

; 1339 146 

3; 1340 1464 verb_node : REF dbg$verb_node; 

3 1341 1465 

.. ¢ 1068 LOCAL 

3% 146 action_node: REF dbg$noun node, ! The noun node for the action clause 
3 1344 1468 action_string: REF VECTORC,QORD), ' Counted string with the action clause 
3; 13465 1469 count_node: REF dbg$noun_node, ! The noun node for the count 
3; 1 $ 1470 count_value, ! The actual count 

3 7 1471 vax_desc: dbg$stg_desc; ! Target of the conversion from 
> 1348 107% : he value descriptor 

3 1349 147 : representing the count. 
; 1350 1474 

3; 1351 1475 ! Recover the noun nodes. 

3; 26 rere : : 

; 135 147 count_node = .verb_node cepast yore. sbigct ptr); 

3 : 3 1678 action_node = .count_node [dbg$i_noun_link]; 

3 7 2$ 1480 ! Set up the vax descriptor for the count. 

; 135 1481 ! This vax descriptor is of type Saneger longword, and is used to convert the 
3; 1358 14 § ! Language specific value descriptor for a count to an 

; 1359 16 ! integer quantity that we can use in a Language-independent way. 


5 
Sep-198e 12:16:59 EDEaUG.SRCSDBGIFYNEN 039; 1 


DEBUG dB 


0 

GIF THEN 16 
voe-000 1e-Sep=1986 12:16: 
3 3 14 ; 
3; 1 1485 vax desc [dsc$b_class] = dsc$k_class_s; 
3; 1 14 vax desc Ldsc$b_dtypeJ = dscS$k_dtype_l; 
3 1 14 vax_desc [dsc$w_length] = 4; 
; : 1? vax_desc (dscS$a_pointer] = count_value; 
3 1 14 ! Initialize count_value to 0 
3; 1 1491 : 
; ! Ho) 4 count_value = 0; 
3 : pes: Do the conversion from value descriptor to boolean. 
:1 1496 IF NOT dbg$ntype_conv (.count_node [dbg$l_noun_valuel, 
31 149 dbg$k_default, 
3 3 1238 dbg$k_vax_desc, 
3 3 14 vax_desc, 
3; $ 1300 -message_vect) 
3 3 1501 THEN 
3 1 1306 RETURN sts$k_severe; 
; 1379 150 
; : ? 1208 Recover the string. 
: 1356 1208 action_string = .action_node (Cdbg$l_noun_value); 
31 1508 ! Add a Link to the command input stream, containing the action 
3 ; 5 1308 string and the repeat count. 
: 138 1511 IF NOT dbg$ncis_add (action _stringl1], .action_string(0], cis_repeat, 
: 1388 1318 -count_value, 0, 0, .message_vect) 
; 1389 151 THEN 
; 1390 1514 RETURN sts$k_severe; 
3; 1391 1515 
3 % 3 1218 ' Return success. 
3 139 151 : 
3 1394 1518 RETURN sts$k_success; 
; ba 1519 
3; 1396 1520 1 END; ! dbg$nexecute_repeat 
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COUNT 
MESSAGE _VECT 
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GIF THEN ibese -19864 01:18:37 AX-11 Bliss-32 v4.0 Page 41 
y0e 00 ba aets 1 Pe ae DEBUG. SRCJDBGIF THEN. “B35. :1 9° 10) 
50 62 00 7 OVL (ACTION_NODE), ACTION_STRING : 15 
08 ac 0D A PUSHL MESSAGE-VECT + 151 
7E 7C CLRQ. =( SP) : 151 
OC AE DD 5 PUSHL  COUNT_VALUE 3 1512 
04 0D 2 PUSHL #4 + 1511 
7E 6 Be 4 MOVZWL (ACTION STRING) =(SP) : 
02 Aad OF 7 PUSHAB 2 (ACTION STRINGS : 
000000006 00 ‘ i! 5 oA CALLS He pee OSReIS. ADD 3 
0 4 be 1$ MOVL #4. RO + 1514 
50 85 boo8e 28 ie 1518 
" $638 RET : 1520 
; Routine Size: 92 bytes, Routine Base: DBGSCODE + 0670 
; 1397 1521 1 END 
: 1398 1522 0 ELUDOM 
.EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
: Name Bytes Attributes 
> DBGSPLIT 45 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
> DBGSCODE 1753 NOVEC.NOWRT. RD. EXE. SHR. LCL. REL. CON, PIC.ALIGN(O) 
3 Library Statistics 
eg ae les ee bee ae Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: ~$35580u SYSLIBILIB.L32;1 18619 0 1009 00:01.8 
ie | 33EDUA te DE BUG. OBJ STRUCDEF 432: 1 3 Q 0 00:00.1 
; mit 0B) JDBGL 18.13 154 9 6 97 00:01.9 
3 55 ‘EDEBUG: OBJ DE TRECRDS. 132;1 ia ‘ a 00:09 : 
+ _$255$DUA28: (DEBUG. 0B) JDBGMSG.L32; 3 0 2 0:00. 
: “eseae: DEBUG. OBJ JDBGGEN. t33e) 86 0 0 $8 80:00:38 


3; Information: 
3; Warnings: 
; Errors: 


6 5 

If THEN -Sep-1 18:37 AX-11 Bliss-32 v4.0-7 Pp 42 
Mb 000 ae tiat hs rik PD a yk 9 Er Oo tT 29° 10) 
: COMMAND QUALIFIERS | 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:DBGIF THEN/OBJ=0B/$:DBGIF THEN MSRC$:DBGIF THEN/UPDATE=(ENHS:DBGIF THEN) 
: e: 1753 cage + 45 data bytes 
: Elapsed Time: 1: 43. 
; Lines n: 2454 
; Lexenes/CPU-Min: 11235 


pene Used: 186 pages 
; Compilation Complete 
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